﻿<!-- #include file="mymin.asp" -->
<%
Call Head2()

%><title>文章推荐</title></head><body><div class="main400">
<%

dim id,classid,rs,a
id= int(request.QueryString("id"))  
classid= int(request.QueryString("classid"))
a=request.QueryString("a")

set rs=server.createobject("adodb.recordset")
rs.open "select recommend from 74hu_article where id="&id,myconn,1,3
if rs.eof then 
	w "文章不存在<br/>"
else
	If a="1" Then'表示要推荐文章
		rs("recommend")=1
		rs.update
		w "文章推荐成功!"
	Else
		rs("recommend")=0
		rs.update
		w "文章取消推荐成功!"
	End If
	w "<a href='wzgl.asp?id="&id&"&amp;sid="&sid&"&amp;classid="&classid&"'>返回文章管理</a><br/>"
end if
rs.close
set rs=nothing
%>
----------<br/>
<a href="adminsmscl.asp?sid=<%=sid%>&amp;id=<%=classid%>">[文章列表]</a><br/>
<a href="wzclass.asp?sid=<%=sid%>">[返回分类]</a><%call Last2%>